home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / sr.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-09-26  |  13.1 KB  |  392 lines
  1. #include <exec/types.h>
  2. #include <libraries/dos.h>
  3. #include <intuition/intuition.h>
  4. #include "register.h"
  5.  
  6. #define INFO_ZEILEN 16
  7. UBYTE *Info[]={"ATUtilities Shareware-Registrierkarte\n\n",
  8.                "Anhand der folgenden Angaben können Sie mit Hilfe des Programms\n",
  9.                "\"Registrierung\" Ihre ATUtilities registrieren. Starten Sie es\n",
  10.                "jetzt und geben Sie die unten stehenden Angaben an.\n\n",
  11.                "Wichtig: Der angegebene Code berechnet sich aus den Adressangaben.\n",
  12.                "         Ihre Eingabe muß mit den Angaben unten Unbedingt überein-\n",
  13.                "         stimmen.\n\n",
  14.                "Klicken Sie nach der Eingabe auf \"Registrieren\", so öffnet sich,\n",
  15.                "ein neues Fenster mit Informationen über die Registrierten Programme.\n",
  16.                "Sobald Sie das Close-Gadget klicken, wird im Verzeichnis\n",
  17.                "AT: die Datei ATUtilities.reg erstellt. Durch sie\n",
  18.                "erkennen die einzelnen Programme automatisch die Registrierung.\n",
  19.                "Solle nach Klicken auf \"Registrieren\" eine Fehlermeldung erscheinen,\n",
  20.                "so prüfen Sie, ob die gemachten Eingaben mit den Angaben auf diesem\n",
  21.                "Blatt übereinstimmen. Nach der Korrektur der Daten klicken Sie erneut\n",
  22.                "auf \"Registrieren\"\n\n\n\n\n"};
  23.  
  24. UBYTE *NumFile="REG:Registration.#";
  25.  
  26. struct Library *ATUtilitiesBase;
  27. struct Library *GfxBase;
  28. struct Library *IntuitionBase;
  29.  
  30. VOID Kill();
  31. VOID Out();
  32. VOID SaveRegNo();
  33. LONG LoadRegNo();
  34.  
  35. VOID main()
  36. {
  37.  LONG                          regno;
  38.  UBYTE                         P[100];
  39.  UBYTE                        *vn,*nn,*st,*la,*pl,*or;
  40.  BOOL                          ende,bool;
  41.  UBYTE                         s1[50],s2[50];
  42.  UWORD                         z;
  43.  REGISTER UWORD                i,j;
  44.  REGISTER ULONG                Class;
  45.  register struct FileHandle   *fh;
  46.  register struct TextFont     *opal;
  47.  register struct Window       *win;
  48.  register struct RastPort     *rp;
  49.  register struct IntuiMessage *msg;
  50.  register struct Gadget       *gad;
  51.  
  52.  bool=FALSE;
  53.  GfxBase=OpenLibrary("graphics.library",0L);
  54.  if(GfxBase==NULL) exit(0);
  55.  IntuitionBase=OpenLibrary("intuition.library",0L);
  56.  if(IntuitionBase==NULL) exit(0);
  57.  ATUtilitiesBase=OpenLibrary("at-utilities.library",0);
  58.  if(ATUtilitiesBase!=NULL)
  59.   {
  60.    win=CreateStdWindow("ATUtilities - Shareware-Registrierung",
  61.                        25,25,590,172,CLOSEWINDOW|GADGETUP,
  62.                        WINDOWCLOSE|WINDOWDRAG|WINDOWDEPTH|ACTIVATE);
  63.    if(win!=NULL)
  64.     {
  65.      rp=win->RPort;
  66.      opal=GetOpalFont();
  67.      if(opal) SetFont(rp,opal);
  68.      SelectStdFPen(rp);
  69.      CreateBoolGadget(win,15,155,160,12,"Registrieren",1);
  70.      CreateBoolGadget(win,180,155,160,12,"Abbruch",2);
  71.      CreateBoolGadget(win,410,155,160,12,"Information",3);
  72.      vn=CreateStringGadget(win,150,89,420,12,NULL,50,0);
  73.      nn=CreateStringGadget(win,150,101,420,12,NULL,50,0);
  74.      st=CreateStringGadget(win,150,113,420,12,NULL,50,0);
  75.      la=CreateStringGadget(win,150,125,40,12,NULL,4,0);
  76.      pl=CreateIntegerGadget(win,195,125,80,12,NULL,6,0);
  77.      or=CreateStringGadget(win,280,125,290,12,NULL,50,0);
  78.      WriteText(rp,40,22,"Shareware-Registrierung für folgende Programme:");
  79.      j=15; z=30;
  80.      for(i=0;i<SYS_COUNT;i++)
  81.       {
  82.        CreateBoolGadget(win,j,z,25,12,"!",1000+i);
  83.        DrawNTextBorder(win,j+28,z,240,12,Programs[i].Name);
  84.        if(j==15) j=300; else { j=15; z+=15; }
  85.        P[i]=0;
  86.       }
  87.      WriteText(rp,20,98,"Vorname:");
  88.      WriteText(rp,20,110,"Nachname:");
  89.      WriteText(rp,20,122,"Str./Nummer:");
  90.      WriteText(rp,20,134,"Land/Plz./Ort:");
  91.      WriteText(rp,20,150,"Reg. Code:");
  92.      ende=FALSE;
  93.      while(ende==FALSE)
  94.       {
  95.        WaitPort(win->UserPort);
  96.        msg=GetMsg(win->UserPort);
  97.        Class=msg->Class;
  98.        gad=msg->IAddress;
  99.        ReplyMsg(msg);
  100.        switch(Class)
  101.         {
  102.          case CLOSEWINDOW:
  103.            ende=TRUE;
  104.           break;
  105.          case GADGETUP:
  106.            switch(gad->GadgetID)
  107.             {
  108.              case 1:
  109.                Kill(vn,50);
  110.                Kill(nn,50);
  111.                Kill(st,50);
  112.                Kill(la,4);
  113.                Kill(pl,6);
  114.                Kill(or,50);
  115.                strcpy(&Kunde.Vorname,vn);
  116.                strcpy(&Kunde.Nachname,nn);
  117.                strcpy(&Kunde.Straße,st);
  118.                strcpy(&Kunde.Land,la);
  119.                strcpy(&Kunde.Postleitzahl,pl);
  120.                strcpy(&Kunde.Ort,or);
  121.                RefreshGadgets(win->FirstGadget,win,NULL);
  122.                z=GetStringCode(vn,CODE_VN);
  123.                sprintf(&s2,"%04lx",z);
  124.                strcpy(&s1,&s2);
  125.                z=GetStringCode(nn,CODE_NN);
  126.                sprintf(&s2,"%04lx",z);
  127.                strcat(&s1,&s2);
  128.                z=GetStringCode(st,CODE_ST);
  129.                sprintf(&s2,"%04lx",z);
  130.                strcat(&s1,&s2);
  131.                z=GetStringCode(la,CODE_LA);
  132.                sprintf(&s2,"%04lx",z);
  133.                strcat(&s1,&s2);
  134.                z=GetStringCode(pl,CODE_PL);
  135.                sprintf(&s2,"%04lx",z);
  136.                strcat(&s1,&s2);
  137.                z=GetStringCode(or,CODE_OR);
  138.                sprintf(&s2,"%04lx",z);
  139.                strcat(&s1,&s2);
  140.                z=0;
  141.                for(i=0;i<SYS_COUNT;i++)
  142.                 {
  143.                  if(P[i]==1)
  144.                   {
  145.                    z+=Programs[i].Code;
  146.                   }
  147.                 }
  148.                sprintf(&s2,"%02lx",z);
  149.                strcat(&s1,&s2);
  150.                z=GetCodeCode(&s1);
  151.                sprintf(&s2,"%04lx",z);
  152.                strcat(&s1,&s2);
  153.                DrawCNTextBorder(win,150,141,420,12,&s1);
  154.                strcpy(&Kunde.Code,&s1);
  155.                i=0;
  156.                z=GetStringCode(vn,CODE_VN);
  157.                i+=TestCode(&s1,z,VN1,VN2,VN3,VN4);
  158.                z=GetStringCode(nn,CODE_NN);
  159.                i+=TestCode(&s1,z,NN1,NN2,NN3,NN4);
  160.                z=GetStringCode(st,CODE_ST);
  161.                i+=TestCode(&s1,z,ST1,ST2,ST3,ST4);
  162.                z=GetStringCode(la,CODE_LA);
  163.                i+=TestCode(&s1,z,LA1,LA2,LA3,LA4);
  164.                z=GetStringCode(pl,CODE_PL);
  165.                i+=TestCode(&s1,z,PL1,PL2,PL3,PL4);
  166.                z=GetStringCode(or,CODE_OR);
  167.                i+=TestCode(&s1,z,OR1,OR2,OR3,OR4);
  168.                z=GetCodeCode(&s1);
  169.                i+=TestCodeCode(&s1,z,CO1,CO2,CO3,CO4);
  170.                if(i!=0)
  171.                 {
  172.                  InfoRequest("Verschlüsselungsfehler!");
  173.                 }
  174.                else
  175.                 {
  176.                  ende=bool=MultiRequest("Überprüfung erfolgreich beendet.",
  177.                                         "Wollen Sie die Daten übernehmen?",
  178.                                         "Ja, Übernehmen","Nein, Zurück");
  179.                 }
  180.              break;
  181.              case 2:
  182.                ende=TRUE;
  183.               break;
  184.             case 3:
  185.               InformationBox("ATUtilities Registrator - Information",
  186.                              "$VER: Registrator - Version 4.0",
  187.                              "Copyright (C) 1993 by",
  188.                              "Thomas Dreibholz",
  189.                              "All rights reserved.",
  190.                              "AT:Icons/Register");
  191.              break;
  192.             default:
  193.               i=gad->GadgetID;
  194.               if(i>=1000)
  195.                {
  196.                 i-=1000;
  197.                 if(P[i]==0) P[i]=1; else P[i]=0;
  198.                 j=15; z=30;
  199.                 for(i=0;i<SYS_COUNT;i++)
  200.                  {
  201.                   if(P[i]==1)
  202.                    { DrawPBorder(win,j+28,z,240,12); }
  203.                   else
  204.                    { DrawNBorder(win,j+28,z,240,12); }
  205.                   if(j==15) j=300; else { j=15; z+=15; }
  206.                  }
  207.                }
  208.              break;
  209.             }
  210.           break;
  211.         }
  212.       }
  213.      DeleteStdWindow(win);
  214.      if(bool==TRUE)
  215.       {
  216.        regno=LoadRegNo();
  217.        if(regno==-1) regno=0;
  218.        if(regno!=-1)
  219.         {
  220.          win=CreateStdWindow("ATUtilities - Shareware-Registrierung",
  221.                              25,25,590,192,CLOSEWINDOW|GADGETUP,
  222.                              WINDOWCLOSE|WINDOWDRAG|WINDOWDEPTH|ACTIVATE);
  223.          if(win!=NULL)
  224.           {
  225.            rp=win->RPort;
  226.            if(opal) SetFont(rp,opal);
  227.            SelectStdFPen(rp);
  228.            CreateBoolGadget(win,15,175,150,12,"Drucken",1);
  229.            CreateBoolGadget(win,170,175,150,12,"Okay",2);
  230.            CreateBoolGadget(win,335,175,150,12,"Abbruch",3);
  231.            sprintf(&s2,"Eingetragener Benutzer der Reg. #%06ld:",regno);
  232.            WriteText(rp,15,25,&s2);
  233.            WriteText(rp,15,40,&Kunde.Vorname);
  234.            WriteText(rp,15,50,&Kunde.Nachname);
  235.            WriteText(rp,15,60,&Kunde.Straße);
  236.            WriteText(rp,15,70,&Kunde.Land);
  237.            WriteText(rp,80,70,"-");
  238.            WriteText(rp,100,70,&Kunde.Postleitzahl);
  239.            WriteText(rp,200,70,&Kunde.Ort);
  240.            WriteText(rp,15,85,"Folgende Programme wurden registriert:");
  241.            i=GETPRG(Kunde.Code);
  242.            j=95;
  243.            for(z=0;z<SYS_COUNT;z++)
  244.             {
  245.              if((i & (Programs[z].Code)) || (Programs[z].Code==0))
  246.               {
  247.                WriteText(rp,15,j,Programs[z].Name);
  248.                j+=10;
  249.               }
  250.             }
  251.            ende=FALSE;
  252.            while(ende==FALSE)
  253.             {
  254.              WaitPort(win->UserPort);
  255.              msg=GetMsg(win->UserPort);
  256.              Class=msg->Class;
  257.              gad=msg->IAddress;
  258.              ReplyMsg(msg);
  259.              switch(Class)
  260.               {
  261.                case CLOSEWINDOW:
  262.                  ende=TRUE;
  263.                 break;
  264.                case GADGETUP:
  265.                  switch(gad->GadgetID)
  266.                   {
  267.                    case 1:
  268.                      fh=Open("PRT:",MODE_NEWFILE);
  269.                      if(fh!=NULL)
  270.                       {
  271.                        for(i=0;i<INFO_ZEILEN;i++) Out(fh,Info[i]);
  272.                        Out(fh,"Vorname:      "); Out(fh,&Kunde.Vorname); Out(fh,"\n");
  273.                        Out(fh,"Nachname:     "); Out(fh,&Kunde.Nachname); Out(fh,"\n");
  274.                        Out(fh,"Straße:       "); Out(fh,&Kunde.Straße); Out(fh,"\n");
  275.                        Out(fh,"Land:         "); Out(fh,&Kunde.Land); Out(fh,"\n");
  276.                        Out(fh,"Postleitzahl: "); Out(fh,&Kunde.Postleitzahl); Out(fh,"\n");
  277.                        Out(fh,"Ort:          "); Out(fh,&Kunde.Ort); Out(fh,"\n\n");
  278.                        Out(fh,"Reg. Code:    "); Out(fh,&s1); Out(fh,"\n\n\n\n");
  279.                        sprintf(&s2,"%06ld",regno);
  280.                        Out(fh,"Reg. #"); Out(fh,&s2); Out(fh,"\n");
  281.                        Close(fh);
  282.                       }
  283.                      else
  284.                       {
  285.                        InfoRequest("Drucken nicht möglich!");
  286.                       }
  287.                     break;
  288.                    case 2:
  289.                      ende=TRUE;
  290.                      sprintf(&s2,"REG:#%06ld",regno);
  291.                      fh=Open(&s2,MODE_NEWFILE);
  292.                      if(fh!=NULL)
  293.                       {
  294.                        Out(fh,"Vorname:      "); Out(fh,&Kunde.Vorname); Out(fh,"\n");
  295.                        Out(fh,"Nachname:     "); Out(fh,&Kunde.Nachname); Out(fh,"\n");
  296.                        Out(fh,"Straße:       "); Out(fh,&Kunde.Straße); Out(fh,"\n");
  297.                        Out(fh,"Land:         "); Out(fh,&Kunde.Land); Out(fh,"\n");
  298.                        Out(fh,"Postleitzahl: "); Out(fh,&Kunde.Postleitzahl); Out(fh,"\n");
  299.                        Out(fh,"Ort:          "); Out(fh,&Kunde.Ort); Out(fh,"\n\n");
  300.                        Out(fh,"Reg. Code:    "); Out(fh,&s1); Out(fh,"\n\n\n\n");
  301.                        sprintf(&s2,"%06ld",regno);
  302.                        Out(fh,"Reg. #"); Out(fh,&s2); Out(fh,"\n");
  303.                        Close(fh);
  304.                        regno++;
  305.                        SaveRegNo(regno);
  306.                       }
  307.                      else
  308.                       {
  309.                        InfoRequest("Daten konnten nicht gespeichert werden!");
  310.                       }
  311.                     break;
  312.                    case 3:
  313.                      ende=TRUE;
  314.                     break;
  315.                   }
  316.                 break;
  317.               }
  318.             }
  319.            DeleteStdWindow(win);
  320.           }
  321.          else
  322.           {
  323.            InfoRequest("Kein Speicher für Fenster!");
  324.           }
  325.         }
  326.       }
  327.      if(opal) CloseFont(opal);
  328.     }
  329.    else
  330.     {
  331.      InfoRequest("Kein Speicher für Fenster!");
  332.     }
  333.    CloseLibrary(ATUtilitiesBase);
  334.   }
  335.  else
  336.   {
  337.    printf("Keine ATUtilities-Library!\n");
  338.   }
  339.  CloseLibrary(IntuitionBase);
  340.  CloseLibrary(GfxBase);
  341.  exit(0);
  342. }
  343.  
  344.  
  345. VOID Kill(str,len)
  346.  UBYTE *str;
  347.  UWORD  len;
  348. {
  349.  WORD i;
  350.  
  351.  for(i=len;i>strlen(str);i--)
  352.   {
  353.    str[i]=0x00;
  354.   }
  355.  for(i=(strlen(str))-1;i>0;i--)
  356.   {
  357.    if(str[i]==' ') str[i]=0x00; else break;
  358.   }
  359. }
  360.  
  361.  
  362. VOID Out(fh,str)
  363.  struct FileHandle *fh;
  364.  UBYTE             *str;
  365. {
  366.  Write(fh,str,strlen(str));
  367. }
  368.  
  369.  
  370. LONG LoadRegNo()
  371. {
  372.  LONG                        l;
  373.  register struct FileHandle *fh;
  374.  
  375.  fh=Open(NumFile,MODE_OLDFILE);
  376.  if(fh==NULL) return(-1);
  377.  Read(fh,&l,4L);
  378.  Close(fh);
  379.  return(l);
  380. }
  381.  
  382. VOID SaveRegNo(l)
  383. {
  384.  register struct FileHandle *fh;
  385.  
  386.  fh=Open(NumFile,MODE_NEWFILE);
  387.  if(fh==NULL) return;
  388.  Write(fh,&l,4L);
  389.  Close(fh);
  390. }
  391.  
  392.